www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/admin/VoteManage.asp
<%@language=vbscript codepage=936 %> <!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <script language=javascript> function ConfirmDel() { if(confirm("确定要删除此记录吗?")) return true; else return false; } </script> <% dim sql,rs,Action,ID Action=Trim(Request("Action")) ID=Trim(Request("VoteID")) if Action="Set" and ID<>"" then conn.execute "Update Vote set IsSelected=False where IsSelected=True" conn.execute "Update Vote set IsSelected=True Where ID=" & ID response.Write "<script language='JavaScript' type='text/JavaScript'>alert('设置成功!');</script>" end if sql="select * from Vote order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %> <!-- #include file="Inc/Head.asp" --> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="862" align="center" valign="top"><br> <p align="center"><strong>调 查 管 理<br> <br> <form method="POST" action="VoteManage.asp"> <p align="center"><strong>管理选项:</strong><a href="VoteAdd.asp">添加新调查</a></p> <table width="560" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000" Class="border"> <tr bgcolor="#A4B6D7" class="title"> <td width="37" height="25" align="center">选择</td> <td width="37" align="center">ID</td> <td width="328" align="center" bgcolor="#A4B6D7">主题</td> <td width="88" align="center">操作</td> </tr> <% if not (rs.bof and rs.eof) then do while not rs.eof %> <tr bgcolor="#ECF5FF" class="tdbg"> <td width="37" height="22" align="center"> <input type="radio" value=<%=rs("ID")%><%if rs("IsSelected")=true then%> checked<%end if%> name="VoteID"></td> <td width="37" height="22" align="center"><%=rs("ID")%></td> <td height="22"> <%=rs("Title")%></td> <td width="88" height="22" align="center"><a href="VoteModify.asp?ID=<%=rs("ID")%>">修改</a> <a href="VoteDel.asp?ID=<%=rs("ID")%>" onClick="return ConfirmDel();">删除</a></td> </tr> <% rs.movenext loop %> <tr bgcolor="#FFFFFF" class="tdbg"> <td colspan=4 align=center> <input name="Action" type="hidden" id="Action" value="Set"> <input type="submit" value="将选定的调查设为最新调查" name="submit"> </td> </tr> <% end if%> </table> </form> </strong></p> </td> </tr> </table> <!-- #include file="Inc/Foot.asp" --> <% rs.close set rs=nothing conn.close set conn=nothing %>